home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v11n09 / drum1.exe / DRUMC.EXE / DRUM.C < prev    next >
C/C++ Source or Header  |  1992-02-13  |  20KB  |  564 lines
  1. /*----------------------------------------------------
  2.    DRUM.C -- MIDI Drum Machine for Multimedia Windows
  3.              (c) Charles Petzold, 1992
  4.   ----------------------------------------------------*/
  5.  
  6. #include <windows.h>
  7. #include <stdlib.h>
  8. #include <string.h>
  9. #include <math.h>
  10. #include "drum.h"
  11. #include "drumdll.h"
  12. #include "drumfile.h"
  13.  
  14. typedef unsigned int UINT ;
  15.  
  16. #define min(a,b) (((a) < (b)) ? (a) : (b))
  17. #define max(a,b) (((a) > (b)) ? (a) : (b))
  18.  
  19. long FAR PASCAL _export WndProc   (HWND, UINT, UINT, LONG) ;
  20. BOOL FAR PASCAL _export AboutProc (HWND, UINT, UINT, LONG) ;
  21.  
  22. void  DrawRectangle (HDC, int, int, DWORD *, DWORD *) ;
  23. void  ErrorMessage  (HWND, char *, LPSTR) ;
  24. void  DoCaption     (HWND, char *) ;
  25. short AskAboutSave  (HWND, char *) ;
  26.  
  27. char *szPerc [NUM_PERC] =
  28.      {
  29.      "Acoustic Bass Drum", "Bass Drum 1",     "Side Stick",
  30.      "Acoustic Snare",     "Hand Clap",       "Electric Snare",
  31.      "Low Floor Tom",      "Closed High-Hat", "High Floor Tom",
  32.      "Pedal High Hat",     "Low Tom",         "Open High Hat",
  33.      "Low-Mid Tom",        "High-Mid Tom",    "Crash Cymbal 1",
  34.      "High Tom",           "Ride Cymbal 1",   "Chinese Cymbal",
  35.      "Ride Bell",          "Tambourine",      "Splash Cymbal",
  36.      "Cowbell",            "Crash Cymbal 2",  "Vibraslap",
  37.      "Ride Cymbal 2",      "High Bongo",      "Low Bongo",
  38.      "Mute High Conga",    "Open High Conga", "Low Conga",
  39.      "High Timbale",       "Low Timbale",     "High Agogo",
  40.      "Low Agogo",          "Cabasa",          "Maracas",
  41.      "Short Whistle",      "Long Whistle",    "Short Guiro",
  42.      "Long Guiro",         "Claves",          "High Wood Block",
  43.      "Low Wood Block",     "Mute Cuica",      "Open Cuica",
  44.      "Mute Triangle",      "Open Triangle"
  45.      } ;
  46.  
  47. char   szAppName  []  = "Drum" ;
  48. char   szUntitled []  = "(Untitled)" ;
  49. char   szBuffer [80 + _MAX_FNAME + _MAX_EXT] ;
  50. HANDLE hInst ;
  51. short  cxChar, cyChar ;
  52.  
  53. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  54.                     LPSTR lpszCmdParam, int nCmdShow)
  55.      {
  56.      HWND        hwnd ;
  57.      MSG         msg ;
  58.      WNDCLASS    wndclass ;
  59.  
  60.      if (hPrevInstance)
  61.           {
  62.           ErrorMessage (NULL, "Only one instance is allowed!", NULL) ;
  63.           return 0 ;
  64.           }
  65.  
  66.      hInst = hInstance ;
  67.  
  68.      wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
  69.      wndclass.lpfnWndProc   = WndProc ;
  70.      wndclass.cbClsExtra    = 0 ;
  71.      wndclass.cbWndExtra    = 0 ;
  72.      wndclass.hInstance     = hInstance ;
  73.      wndclass.hIcon         = LoadIcon (hInstance, szAppName) ;
  74.      wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  75.      wndclass.hbrBackground = GetStockObject (WHITE_BRUSH) ;
  76.      wndclass.lpszMenuName  = szAppName ;
  77.      wndclass.lpszClassName = szAppName ;
  78.  
  79.      RegisterClass (&wndclass) ;
  80.  
  81.      hwnd = CreateWindow (szAppName, NULL,
  82.                           WS_OVERLAPPEDWINDOW | WS_HSCROLL | WS_VSCROLL,
  83.                           CW_USEDEFAULT, CW_USEDEFAULT,
  84.                           CW_USEDEFAULT, CW_USEDEFAULT,
  85.                           NULL, NULL, hInstance, lpszCmdParam) ;
  86.  
  87.      ShowWindow (hwnd, SW_SHOWMAXIMIZED) ;
  88.      UpdateWindow (hwnd) ;
  89.  
  90.      while (GetMessage (&msg, NULL, 0, 0))
  91.           {
  92.           TranslateMessage (&msg) ;
  93.           DispatchMessage (&msg) ;
  94.           }
  95.      return msg.wParam ;
  96.      }
  97.  
  98. long FAR PASCAL _export WndProc (HWND hwnd, UINT message, UINT wParam,
  99.                                                           LONG lParam)
  100.      {
  101.      static BOOL    bNeedSave ;
  102.      static char    szFileName  [_MAX_PATH],
  103.                     szTitleName [_MAX_FNAME + _MAX_EXT] ;
  104.      static DRUM    drum ;
  105.      static FARPROC lpfnAboutProc ;
  106.      static HMENU   hMenu ;
  107.      static int     iTempo = 50, iIndexLast ;
  108.      char *         szError ;
  109.      DWORD          dwCurrPos ;
  110.      HDC            hdc ;
  111.      int            i, x, y ;
  112.      PAINTSTRUCT    ps ;
  113.  
  114.      switch (message)
  115.           {
  116.           case WM_CREATE:
  117.                          // Initialize DRUM structure
  118.  
  119.                drum.iMsecPerBeat = 100 ;
  120.                drum.iVelocity    =  64 ;
  121.                drum.iNumBeats    =  32 ;
  122.  
  123.                DrumSetParams (&drum) ;
  124.  
  125.                          // Other initialization
  126.  
  127.                cxChar = LOWORD (GetDialogBaseUnits ()) ;
  128.                cyChar = HIWORD (GetDialogBaseUnits ()) ;
  129.  
  130.                lpfnAboutProc = MakeProcInstance ((FARPROC) AboutProc, hInst) ;
  131.                hMenu = GetMenu (hwnd) ;
  132.  
  133.                          // Process command line and start sequence
  134.  
  135.                lstrcpy (szFileName,
  136.                         ((LPCREATESTRUCT) lParam)->lpCreateParams) ;
  137.  
  138.                if (lstrlen (szFileName))
  139.                     {
  140.                     if (DrumFileParse (szFileName, szTitleName))
  141.                          {
  142.                          szError = DrumFileRead (&drum, szFileName) ;
  143.  
  144.                          if (szError == NULL)
  145.                               {
  146.                               iTempo = (int) (50 *
  147.                                              (log10 (drum.iMsecPerBeat) - 1)) ;
  148.  
  149.                               DrumSetParams (&drum) ;
  150.                               }
  151.                          else
  152.                               {
  153.                               ErrorMessage (hwnd, szError, szTitleName) ;
  154.                               szTitleName [0] = '\0' ;
  155.                               }
  156.                          }
  157.                     else
  158.                          {
  159.                          ErrorMessage (hwnd, "Invalid command line: %s",
  160.                                    ((LPCREATESTRUCT) lParam)->lpCreateParams) ;
  161.                          szTitleName [0] = '\0' ;
  162.                          }
  163.                     }
  164.  
  165.                          // Initialize "Volume" scroll bar
  166.  
  167.                SetScrollRange (hwnd, SB_HORZ, 1, 127, FALSE) ;
  168.                SetScrollPos   (hwnd, SB_HORZ, drum.iVelocity, TRUE) ;
  169.  
  170.                          // Initialize "Tempo" scroll bar
  171.  
  172.                SetScrollRange (hwnd, SB_VERT, 0, 100, FALSE) ;
  173.                SetScrollPos   (hwnd, SB_VERT, iTempo, TRUE) ;
  174.  
  175.                DoCaption (hwnd, szTitleName) ;
  176.                return 0 ;
  177.  
  178.           case WM_COMMAND:
  179.                switch (wParam)
  180.                     {
  181.                     case IDM_NEW:
  182.                          if (bNeedSave && IDCANCEL ==
  183.                                    AskAboutSave (hwnd, szTitleName))
  184.                               return 0 ;
  185.  
  186.                                    // Clear drum pattern
  187.  
  188.                          for (i = 0 ; i < NUM_PERC ; i++)
  189.                               {
  190.                               drum.dwSeqBas [i] = 0L ;
  191.                               drum.dwSeqExt [i] = 0L ;
  192.                               }
  193.  
  194.                          InvalidateRect (hwnd, NULL, FALSE) ;
  195.                          DrumSetParams (&drum) ;
  196.                          bNeedSave = FALSE ;
  197.                          return 0 ;
  198.  
  199.                     case IDM_OPEN:
  200.                                    // Save previous file
  201.  
  202.                          if (bNeedSave && IDCANCEL ==
  203.                                    AskAboutSave (hwnd, szTitleName))
  204.                               return 0 ;
  205.  
  206.                                    // Open the selected file
  207.  
  208.                          if (DrumFileOpenDlg (hwnd, szFileName, szTitleName))
  209.                               {
  210.                               szError = DrumFileRead (&drum, szFileName) ;
  211.  
  212.                               if (szError != NULL)
  213.                                    {
  214.                                    ErrorMessage (hwnd, szError, szTitleName) ;
  215.                                    szTitleName [0] = '\0' ;
  216.                                    }
  217.                               else
  218.                                    {
  219.                                              // Set new parameters
  220.  
  221.                                    iTempo = (int) (50 *
  222.                                              (log10 (drum.iMsecPerBea